home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
PROGRAM
/
TJTOT10B.ARJ
/
DEMO.EXE
/
arc
/
DEMIN4.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-02-11
|
2KB
|
81 lines
Program DemoInputFour;
{DEMIN4}
Uses CRT,
totINPUT, totFAST, totSTR;
Var
Ch : char;
L,C,R,OldL,OldC,OldR: boolean;
X,Y,OldX,OldY: byte;
begin
Clrscr;
with Mouse do
begin
if not Installed then
begin
Writeln('This demo will only function on systems equipped with a mouse');
end
else
begin
WriteLn('You have a ',GetButtons,' button mouse!');
Writeln('Press: C to confine the mouse');
Writeln(' U to unconfine the mouse');
Writeln(' L to change the mouse cursor');
Writeln(' R to reset mouse');
Writeln(' H to hide the mouse');
Writeln(' S to show the mouse');
Writeln(' any mouse button');
Writeln(' Esc to quit');
Screen.FillBox(15,10,65,20,30,1);
Show;
repeat
with Screen do
repeat
Status(L,C,R,X,Y);
if OldL <> L then
if L then
WriteAT(20,11,30,'Left Button')
else
WriteAT(20,11,30,' ');
if OldR <> R then
if R then
WriteAT(20,12,30,'Right Button')
else
WriteAT(20,12,30,' ');
if OldC <> C then
if C then
WriteAT(20,13,30,'Middle Button')
else
WriteAT(20,13,30,' ');
if OldX <> X then
WriteAT(20,15,30,inttostr(X)+' ');
if OldY <> Y then
WriteAT(20,16,30,inttostr(Y)+' ');
OldL := L;
OldR := R;
OldC := C;
OldX := X;
OldY := Y;
until Key.KeyPressed;
Key.GetInput;
case upcase(Key.LastChar) of
'C': Confine(15,10,65,20);
'U': Confine(1,1,80,25);
'L': SetMouseCursorStyle(random(200)+56,0);
'H': Hide;
'S': Show;
'R': begin
Hide;
Reset;
Show;
end;
end; {case}
until Key.LastKey = 27;
Hide;
end;
GotoXY(1,23);
end;
end.